home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 7 / Gekikoh Dennoh Club Vol. 7 (Japan).7z / Gekikoh Dennoh Club Vol. 7 (Japan) (Track 01).bin / tools / d / jlcd100.lzh / TNB_FSW / CDC110F.LZH / DEVE.Lzh / CDC_CLIB.S < prev    next >
Text File  |  1996-05-18  |  1KB  |  76 lines
  1.     .include    TNB.MAC
  2.     .include    CDC.MAC
  3.  
  4.     .globl    _CDC_CHK
  5. _CDC_CHK:
  6.     suba.l    a1,a1
  7.     SUPER                *SUPER MODE
  8.     move.l    d0,-(sp)
  9.  
  10.     _CDC_CHK_S
  11.     beq    1f
  12.     *常駐
  13.  
  14.     move.l    (sp)+,d0
  15.     bmi    @f
  16.     movea.l    d0,a1
  17.     USER
  18. @@:    moveq    #-1,d0
  19.     rts
  20.  
  21.  
  22. 1:    *非常駐
  23.     move.l    (sp)+,d0
  24.     bmi    @f
  25.     movea.l    d0,a1
  26.     USER
  27. @@:    moveq    #0,d0
  28.     rts
  29.  
  30.     .globl    _CDC_ATRACK
  31. _CDC_ATRACK:
  32.     movea.l    4(sp),a2        *引数(曲ナンバー)
  33.     CDC    _CDC_TRACKS
  34.     movea.l    d0,a1            *ワークアドレス
  35.     move.l    2(a1),d1        *記憶数
  36.     move.l    d1,d2            *記憶数
  37.     adda.w    #58,a1            *ワークアドレス+58
  38.     move.l    a2,d0            *曲ナンバー
  39.     muls    #40,d0            *曲ナンバー*40
  40.     lea    0(a1,d0.l),a0        *曲名アドレス
  41.     move.l    a0,work
  42.     muls    #40,d1            *記憶数*40
  43.     adda.l    d1,a1            *ワークアドレス+d1
  44.     move.l    a2,d0            *曲ナンバー
  45.     add.l    d0,d0            *
  46.     add.l    d0,d0            * x4
  47.     move.l    0(a1,d0.l),work+4    *演奏時間
  48.     move.l    d1,d2            *記憶数
  49.     add.l    d2,d2            *
  50.     add.l    d2,d2            * x4
  51.     adda.l    d2,a1
  52.     move.l    0(a1,d0.l),work+8    *スタート
  53.     move.l    #work,d0
  54.     rts
  55. work:
  56.     .dc.l    0
  57.     .dc.l    0
  58.     .dc.l    0
  59.  
  60.     .globl    _CDC_CALL
  61. _CDC_CALL:
  62.     move.l    4(sp),d0
  63.     move.l    8(sp),d1
  64.     move.l    12(sp),d2
  65.     move.l    16(sp),a0
  66.     move.l    20(sp),a1
  67.     movem.l    d3-d4,-(sp)
  68.     move.l    a0,d3
  69.     move.l    a1,d4
  70.     trap    #5
  71.     movem.l    (sp)+,d3-d4
  72.     rts
  73.  
  74.  
  75.  
  76.